home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Shareware City / Applications / Alpha.5.96 folder / Tcl / UserCode / states.tcl < prev    next >
Encoding:
Text File  |  1994-08-15  |  1.8 KB  |  93 lines  |  [TEXT/ALFA]
  1. # Pete,
  2. # 
  3. # The enclosed TCL procs implement the capability to save and restore the
  4. # current window/file list.  I'm sure it needs some beefing up in the area of
  5. # error recovery, but it's worked well for me so far.
  6. # 
  7. # Regards,
  8. # David
  9. # david.rogers@aldus.com
  10. # davidr@halcyon.com
  11.  
  12.  
  13. if {![string length [info commands fileMenuProc42]]} {
  14.     rename fileMenuProc fileMenuProc42
  15. }
  16.  
  17. proc fileMenuProc {menu item} {
  18.     if {$item == "quit"} {
  19.         saveState
  20.     }
  21.     fileMenuProc42 $menu $item
  22. }
  23.  
  24. proc restoreNamedState {} {
  25.     global HOME
  26.     global fname
  27.     if {!file exists "$HOME:States"} {
  28.         message "No saved states!"
  29.         return
  30.     }
  31.     set fname [listpick -p "Choose the state to restore:" [glob -t TEXT "$HOME:States:*"]]
  32.     uplevel #0 {
  33.         source $fname
  34.     }
  35.     restoreStateList
  36. }
  37.  
  38.  
  39. proc restoreState {} {
  40.     global HOME
  41.     global fname
  42.     set fname "$HOME:States:State.tcl"
  43.     uplevel #0 {
  44.         if {[catch {source $fname}]} {
  45.             alertnote "Error restoring state!"
  46.             return
  47.         }
  48.     }
  49.     restoreStateList
  50. }
  51.  
  52.  
  53. proc saveNamedState {} {
  54.     global HOME
  55.     set fname [getline "Save state in file:" "NewState.tcl"]
  56.     if {[string length $fname] > 27 } {
  57.         alertnote "$fname is not a valid file name - too long."
  58.         return
  59.     }
  60.     if {[string first ":" $fname] != -1} {
  61.         alertnote "$fname is not a valid file name - contains a ':'."
  62.         return
  63.     }
  64.     saveStateByName $fname
  65. }
  66.  
  67. proc saveState {} {
  68.     saveStateByName "State.tcl"
  69. }
  70.  
  71. proc saveStateByName stateFileName {
  72.     global HOME
  73.  
  74.     if {![file exists "$HOME:States"]} {
  75.         mkdir "$HOME:States"
  76.     }
  77.     set fname "$HOME:States:$stateFileName"
  78.     set fileid [open $fname "w+"]
  79.     puts $fileid "proc restoreStateList {} {"
  80.     set winList [winNames -f]
  81.     set lastWindow [expr [llength $winList] - 1]
  82.     for {set Index $lastWindow} {$Index >= 0} {incr Index -1} {
  83.         set f [lindex $winList $Index]
  84.         puts $fileid "    catch \{edit \"$f\"\}"
  85.     }    
  86.     puts $fileid "}"
  87.     close $fileid
  88.  
  89. }
  90.  
  91.  
  92.  
  93.